program opr_kol_chisla;

var M,N:longint;
	kol:word;
BEGIN
{Так как речь идёт о натуральных числах,}
{при вводе предусмотрена проверка.}
{Закончить цикл, если введено положительное число,}
{иначе повторить ввод}
	repeat
		write('N=');
		readln(N);
	until N>0;
	M:=N;	{Сохранить значение переменной N. }
	kol:=1;	{Пусть число состоит из одной цифры.}
	while M div 10 > 0 do
	{Выполнять тело цикла, пока число делится нацело на 10.}
	begin
	kol:=kol+1;	{Счётчик количества цифр.}
	M:=M div 10;	{Изменение числа.}
	end;
	writeln('kol = ',kol);
END.
